home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / budget.arc / BALANCE.BAS (.txt) next >
Encoding:
GW-BASIC  |  1985-06-26  |  512 b   |  27 lines
  1. 10  PRINT "REMAINING BALANCE ON A LOAN"
  2. 20  PRINT
  3. 30  PRINT "REGULAR PAYMENT"
  4. 40  INPUT R
  5. 50  PRINT "PRINCIPAL"
  6. 60  INPUT P
  7. 70  PRINT "# OF PAYMENTS PER YEAR";
  8. 80  INPUT N
  9. 90  PRINT "ANNUAL INTEREST RATE";
  10. 100  INPUT I
  11. 110  I=I/100
  12. 120  PRINT  "NUMBER OF PAYMENTS MADE";
  13. 130  INPUT N1
  14. 150  B0=P
  15. 160  FOR J1=1 TO N1
  16. 170  I1=INT((B0*I/N)*100+O.5)/100
  17. 180  A=R-I1
  18. 190  B0=B0-A
  19. 200  NEXT J1
  20. 210  PRINT "REMAINING BALANCE = $";
  21. 220  PRINT INT(B0*100+O.5)/100
  22. 230  PRINT
  23. 240  PRINT "MORE DATA? (1=YES, 0=NO)";
  24. 250  INPUT X
  25. 260  IF X=1 THEN 20
  26. 270  END
  27.